home *** CD-ROM | disk | FTP | other *** search
/ Hardcore Visual Basic 5.0 (2nd Edition) / Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso / Code / Goodies / NAMESP~1 / DDTREE3.FR_ / DDTREE3.FR
Text File  |  1997-06-04  |  4KB  |  117 lines
  1. VERSION 5.00
  2. Object = "{688EB628-7DA2-11D0-95F0-0020AF07755A}#1.1#0"; "awddtree.ocx"
  3. Begin VB.Form frmSample3 
  4.    ClientHeight    =   5265
  5.    ClientLeft      =   1665
  6.    ClientTop       =   1290
  7.    ClientWidth     =   7830
  8.    ControlBox      =   0   'False
  9.    LinkTopic       =   "Form1"
  10.    LockControls    =   -1  'True
  11.    MDIChild        =   -1  'True
  12.    PaletteMode     =   1  'UseZOrder
  13.    ScaleHeight     =   5265
  14.    ScaleWidth      =   7830
  15.    WindowState     =   2  'Maximized
  16.    Begin VB.DriveListBox Drive1 
  17.       Height          =   315
  18.       Left            =   960
  19.       TabIndex        =   3
  20.       Top             =   3060
  21.       Width           =   5595
  22.    End
  23.    Begin VB.TextBox Text2 
  24.       BackColor       =   &H8000000F&
  25.       Height          =   1035
  26.       Left            =   960
  27.       Locked          =   -1  'True
  28.       MultiLine       =   -1  'True
  29.       TabIndex        =   5
  30.       Text            =   "DDTree3.frx":0000
  31.       Top             =   4020
  32.       Width           =   5655
  33.    End
  34.    Begin VB.TextBox Text1 
  35.       BackColor       =   &H8000000F&
  36.       Height          =   1155
  37.       Left            =   960
  38.       Locked          =   -1  'True
  39.       MultiLine       =   -1  'True
  40.       TabIndex        =   7
  41.       Text            =   "DDTree3.frx":00EA
  42.       Top             =   540
  43.       Width           =   5535
  44.    End
  45.    Begin AWDDTREE.DDTree DDTree1 
  46.       Height          =   330
  47.       Left            =   960
  48.       TabIndex        =   1
  49.       Top             =   2280
  50.       Width           =   5595
  51.       _ExtentX        =   9869
  52.       _ExtentY        =   582
  53.       ControlMode     =   1
  54.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  55.          Name            =   "MS Sans Serif"
  56.          Size            =   8.25
  57.          Charset         =   0
  58.          Weight          =   400
  59.          Underline       =   0   'False
  60.          Italic          =   0   'False
  61.          Strikethrough   =   0   'False
  62.       EndProperty
  63.    End
  64.    Begin VB.Label Label1 
  65.       Caption         =   "Note:"
  66.       Height          =   195
  67.       Index           =   3
  68.       Left            =   960
  69.       TabIndex        =   4
  70.       Top             =   3780
  71.       Width           =   2835
  72.    End
  73.    Begin VB.Label Label1 
  74.       Caption         =   "DropDown&Tree:"
  75.       Height          =   195
  76.       Index           =   1
  77.       Left            =   960
  78.       TabIndex        =   0
  79.       Top             =   2040
  80.       Width           =   3735
  81.    End
  82.    Begin VB.Label Label1 
  83.       Caption         =   "&DriveListBox:"
  84.       Height          =   195
  85.       Index           =   0
  86.       Left            =   960
  87.       TabIndex        =   2
  88.       Top             =   2820
  89.       Width           =   3015
  90.    End
  91.    Begin VB.Label Label1 
  92.       Caption         =   "DriveListBox with new Shell look:"
  93.       Height          =   195
  94.       Index           =   2
  95.       Left            =   960
  96.       TabIndex        =   6
  97.       Top             =   300
  98.       Width           =   2835
  99.    End
  100. End
  101. Attribute VB_Name = "frmSample3"
  102. Attribute VB_GlobalNameSpace = False
  103. Attribute VB_Creatable = False
  104. Attribute VB_PredeclaredId = True
  105. Attribute VB_Exposed = False
  106. Option Explicit
  107.  
  108. Private Sub DDTree1_Click()
  109.     On Error Resume Next
  110.     Drive1.Drive = DDTree1.Path
  111. End Sub
  112.  
  113. Private Sub Drive1_Change()
  114.     On Error Resume Next
  115.     DDTree1.Path = Left$(Drive1.Drive, 2)
  116. End Sub
  117.